Public Class FormProgressBarLoad
    Dim BackgroundID As Int16
    Private Sub FormProgressBarLoad_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '  loadBackground()
        Label1.ForeColor = Color.Gray
        Label2.ForeColor = Color.Gray
        ProgressBar1.Hide()
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(3)
        If ProgressBar1.Value = 100 Then
            Me.Hide()
            Timer1.Stop()
        
            FormLogin.Show()


        End If

        Label1.Text = ProgressBar1.Value & (" %")

    End Sub
  
End Class